home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / 4cmp22s.zip / IAGEBNCH.4TH < prev    next >
Text File  |  1994-10-30  |  718b  |  32 lines
  1. \ This is the Interface Age benchmark program described in
  2. \ Appendix D of the ForthCMP Manual.
  3.  
  4. ( INTERFACE AGE BENCHMARK PROGRAM              08:01 11/16/85 )
  5. 500 100  MSDOSEXE
  6. 1 0 IN/OUT
  7. : BENCH DUP 2/ 1+ SWAP  CR
  8.         1 DO DUP I 1 ROT
  9.           2 DO DROP DUP 0 I UM/MOD
  10.              DUP 0= IF DROP DROP 1 LEAVE THEN
  11.                1 = IF DROP 1
  12.                    ELSE DUP 0= IF DROP 0 LEAVE THEN
  13.                       0< 0= IF 1 THEN
  14.                    THEN
  15.              LOOP IF . ELSE DROP THEN LOOP DROP CR ;
  16.  
  17. : MAIN   1000 BENCH   ;
  18.  
  19. 1 0 IN/OUT
  20. : I. 0 10 UM/MOD ?DUP IF I. THEN [CHAR] 0 + EMIT ;
  21.  
  22. : .  ?DUP IF I. ELSE [CHAR] 0 EMIT THEN  BL EMIT ;
  23.  
  24.  
  25. INCLUDE FORTHLIB
  26.  
  27. END
  28.  
  29.  
  30.  
  31.  
  32.